COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
C⊗;
PRECEDE;
FUNCTION HARM;
BEGIN 
VARIABLE X;
IF P8=0 THEN BEGIN  
IF P3=C THEN X←E/2;
IF P3=D THEN X←F/2;
IF P3=E THEN X←G/2;
IF P3=F THEN X←A/2;
IF P3=G THEN X←D;
IF P3=A THEN X←C;  
IF P3=B/2 THEN X←F/2;  PRINT P3,X;
END  ELSE BEGIN P3←X; END;
PRINT P3;END;
*
TOOT ;
P2 RHY/16////8//4/FINE;
P3 NOTE/C4/D/E/F/G/B3/C4/FINE;
P4 1000;
P5 F1;
P6 F5;
P7 F4;
P8 0;
P9 "HARM";
END;
CLAR ;
DUPL 1;
P8 1;
END;